home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / parad / jan94 / vkfig07b.gif

< prev

next >

Graphics Interchange Format  |  1996-07-02  |  23KB  |  428x329  |  4-bit (16 colors)

Labels: text | screenshot | display | software | computer | number
OCR: TESTORY2:#Script1 :: run method run(var eventinfo Event) var q Query ans, tHane, field1, field2, FieldiCriteria, field2Criteria String endVar ans = "ANSWER: : PRIV: ANSWER.DB" tHane = "DBOXFLDS.DB" Field1 - "Start date" Field2 - "End date" FieldiCriteria - "Check >=12/01/90" Field2Criteria = "Check <= 1/1/93" q - query ~ans -- "tName | ~Field1 ~Field2 | ~Field1Criteria| "Field2Criteria | endQuery if not q.executeQBE() then msgStop("Error", "Can't run query'\n" + errorMessage()) endIf endMethod Line Gol: 1

---